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Prólogo 


Los  juegos  presentados  en  este  libro  utilizan  funciones  pro¬ 
pias  de  su  microordenador:  sonido,  color,  gráficos  de  alta  re¬ 
solución,  etc.  Por  dicho  motivo,  estos  programas  sólo  sirven 
para  el  Amstrad  y  difícilmente  pueden  adaptarse  a  otros 
productos. 

Aparte  del  propio  juego,  el  estudio  de  estos  programas  le 
va  a  enseñar  numerosas  técnicas  de  programación  que  le 
serán  muy  útiles  para  desarrollar  sus  propios  programas. 


NOTAS  CONCERNIENTES  A  LOS  PROGRAMAS 


Los  programas  han  de  ser  tecleados  tal  como  se  reprodu¬ 
cen  en  casette  o  en  diskette  al  objeto  de  evitar  tener  que  vol¬ 
ver  a  teclearlos  cada  vez  que  se  utilizan.  Para  ello  emplee  la 
instrucción 

SAVE  ''<nombre>" 

sustituyendo  nombre  por  el  nombre  del  programa  a  grabar. 
,  Ejemplo:  Para  grabar  el  programa  BOMBARDEO  AEREO, 
pulsar 

SAVE  "BOMBARDEO  AEREO" 

y  apretar  la  tecla  ENTER  una  vez  apretadas  las  teclas  PLAY  y 
RECORD  del  magnetófono.  Para  recargar  un  programa  hay  que 
rebobinar  la  casette  hasta  el  inicio  del  programa  y  pulsar 
LOAD  "<nombre>".  Por  ejemplo,  si  quiere  recargar  el  pro¬ 
grama  BOMBARDEO  AEREO,  hay  que  pulsar 

LOAD  "BOMBARDEO  AEREO" 
y  apretar  la  tecla  ENTER. 

Al  objeto  de  reducir  los  errores  al  máximo,  los  listados  de 
los  programas  han  sido  reproducidos  fotográficamente.  Si  sus 
programas  no  funcionan,  hay  que  verificarlos  atentamente,  vi¬ 
gilando  de  modo  especial  los  puntos  siguientes: 

—  líneas  omitidas 

—  números  de  líneas  equivocados 

—  errores  de  pulsación  (mucha  atención  para  no  confundir 

la  letra  O  y  el  número  0,  o  la  letra  I  y  el  número  1). 

Todos  los  programas  que  utilizan  las  teclas  del  cursor  pue¬ 
den  utilizar  un  joystick.  Para  ello  hay  que  reemplazar  STICK(O) 
por  STICK(I)  y  STRIG(O)  por  STRIG(I). 
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Gracias  a  su  ordenador,  puede  jugar  a  squash  cómoda¬ 
mente  sentado  en  un  sillón.  La  raqueta  se  desplaza  con  ayuda 
del  joystick  o  de  las  teclas  de  control  del  cursor  y  de  la  tecla 
<CÓPY>.  Dispone  de  diez  pelotas  que  ha  de  mantener  en  jue¬ 
go  el  mayor  tiempo  posible.  Cada  pelota  que  se  devuelve  pro¬ 
porciona  un  punto. 


10  REH 

20  REH  «  SQUASH  » 

30  REH  »♦»»»«•» 

40  60SUB  630 
50  SOTO  170 

60  D«2«((J0Y(0)M)-(J0Y(O)»8)) 
70  IF  OOO  THEN  DO-D 
80  IF  J0Y(0)>0  THEN  D0>0 
90  RX^RX+DO 
100  RETURN 
lio  0$-INKEYI 

120  D>2f((Dt>Fl»)-(D$>F2<)) 

130  IF  DOO  THEN  D0»D 

140  IF  D««STI  THEN  D0«0 

ISO  RX»RX+D0 

160  RETURN 

170  LOCATE  BX,BY 

180  PEN  3 

190  PRINT  NI; 

200  BX«BX+DX 
210  BY-BY+OY 
220  LOCATE  BX,BY 


Squash 


230  PRINT  Bl; 

240  IF  BY-22  AND  ABS(BX-RX-3)>1  THEN  350 

250  IF  BY>22  THEN  S«SM:PRINT  SI;;DY<-Dy 

260  IF  BY«2  THEN  PRINT  S$jsDY»-DY 

270  IF  BX«3  OR  DX«38  THEN  PRINT  S4;;0X»-DX 

2B0  ON  JS  60SUB  60,110 

290  IF  RX<1  THEN  RX«1 

300  IF  RX>34  THEN  RX-34 

310  PEN  4 

320  LOCATE  RX,RY 

330  PRINT  Rl; 

340  GOTO  170 

350  NB>NB^1 

360  IF  NB«11  THEN  470 

370  LOCATE  BX,BY 

360  PRINT  NI; 

390  FOR  I»1  TO  3 
400  PRINT  SI; 

410  FOR  J»1  TO  400 

420  NEXT  J 

430  NEXT  I 

440  D0«0 

450  60SUB  980 

460  GOTO  170 

470  LOCATE  14,6 

480  PRINT  ‘SCORE  :';S; 

490  IF  S>R1  THEN  R1»S 
500  LOCATE  14,11 
510  PRINT  "RECORD  :';R1; 

520  LOCATE  14,16 
530  PRINT  'OTRA'?'; 

540  NB=0 

550  S>0 

560  DIMNKEYI 

570  IF  DIO'*  THEN  560 

580  DI>INKEYI 

590  IF  01=**  THEN  580 

600  IF  DIO’N*  AND  DIO'n"  THEN  40 

610  CLS 

620  END 

630  HODE  1 

640  CLS 
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Squash 


650  DEFINI  A-Z 
660  INK  1,24 
670  INK  2,22 
680  INK  3,8 
690  INK  4,0 
700  BORDER  1? 

710  PAPER  2 
720  S$«CHRI(7) 

730  LOCATE  12,11 

740  PRINT  "JOYSTICK  (S  o  N)  ?*i 

750  D$«INKEY» 

760  IF  DI»"'  THEN  750 

770  IF  D»«'S"  OR  0$«'5"  THEN  JS»1  ELSE  JS«2 
780  CLS 

790  SYHBOL  240,255,255,255 
800  SYHBOL  241,24,126,126,255,255,126,126,24 
810  SYHBOL  242,255,255,255,255,255,255,255,255 
820  CBI>CNRI(242) 

830  N»»CHRI(32> 

840  PEN  1 

850  FOR  BX»2  TO  39 
860  LOCATE  BX,1 
870  PRINT  CB«i 
880  NEXT  BX 
890  FOR  BY>2  TO  22 
900  LOCATE  2,BY 
910  PRINT  CBI) 

920  LOCATE  39,BY 
930  PRINT  CBli 
940  NEXT  BY 

950  RI-NI+NI+CHRI (240) tCHRI (240) +CHRI (240) +N4+NI 
960  B»«CHR$(241) 

970  RX«17 
980  RY-23 
990  BY»22* 

1000  BX>INT(RN0*30)*7 
1010  DY-1 

1020  DX>(INT(RNDi2)-0.5)»2 
1030  F1$«CHRI(242) 

1040  F2I>CHRI(243) 

1050  ST$>CHRI(224) 

1060  RETURN 
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Su  misión  consiste  en  destruir  la  ciudad  que  está  sobrevo¬ 
lando,  con  objeto  de  poder  aterrizar.  A  cada  pasada,  su  avión 
vuela  un  poco  más  bajo.  No  puede  lanzar  una  bomba  (pulsan¬ 
do  sobre  una  tecla  cualquiera)  hasta  que  la  bomba  precedente 
haya  alcanzado  su  objetivo  o  el  suelo.  Cuando  su  avión  ha 
aterrizado  (o  cuando  se  ha  estrellado  contra  un  edificio),  se 
registra  la  puntuación,  así  como  el  récord  del  día. 

10  REH 

20  REH  «  10HIAR9E0  AEREO  t 
30  REH 

40  DEFINI  A-V 
50  DIH  TB(40,25) 

60  60SUB  650 
70  60SUB  880 
80  FOR  HY>1  TO  24 
90  FOR  TO  40 
100  LOCATE  HX,HY 

lio  1-1 

120  H«Z+0.5 
130  PEN  1 
140  PRINT  AUN)  i 
150  PEN  2 

160  IF  HX>37  THEN  180 

170  IF  TB(HX+3,HY)<>0  THEN  280 

180  IF  INKEYIO”  AND  BY»1  AND  HXO40  THEN  BX=HX+1:BY»HY+1 
190  IF  BYOO  THEN  GOSUB  550  ELSE  GOSUB  620 
200  NEXt  HX 
210  LOCATE  39, HY 

220  PRINT  NNI} 
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230  NEXT  HY 
240  FOR  I«1  TO  500 
250  NEXT  I 
260  S«SM0iHY4HX 
270  60T0  70 
280  S*SM0«HY*HX 
290  LOCATE  BX,B1 
300  PRINT  NI; 

310  FOR  I»HY  TO  23 
320  LOCATE  HXM,1 
330  PRINT  NNI; 

340  LOCATE 

350  PRINT  RI8HTI(AI(1),2); 

360  FOR  J>1  TO  100 

370  NEXT  J 

380  NEXT  I 

390  IF  S>R  THEN  R»S 

400  LOCATE  4,1 

410  PEN  1 

420  PRINT  "SCORE  :";S, 

430. PRINT  ‘RECORD  !“;R; 

440  FOR  I»1  TO  100 

450  NEXT  I 

460  RI-INKEYI 

470  IF  RIO”  THEN  460 

480  LOCATE  8,14 

490  PRINT  'OTRA  ?*; 

500  RI>INKEYI 
510  IF  Rl=”  THEN  500 

520  IF  RIO'N*  AND  RIO'n'  THEN  S=0:G0T0  70 
530  CLS 
540  END 

550  IF  BY>24  THEN  BY=1 
560  LOCATE  BX,B1 
570  PRINT  NI; 

580  TB(BX,61)-0 
590  B1»BY 

600  IF  BYOl  THEN  LOCATE  BX,BY¡PRINT  BI¡;BY=BY+1 

610  RETURN 

620  FOR  1>1  TO  10 

630  NEXT  I 

640  RETURN 


-  14  - 


Bombardeo  aéreo 


650  HOOE  1 
660  CLS 
670  INK  1,18 
680  INK  2,6 
690  INK  3,24 
700  INK  4,1 
710  BOROER  1 
720  PAPER.  4 
730  DIN  Af(l) 

740  SYNBOL  240,193,224,225,255,255,255,64,0 
750  SYNBOL  241,248,144,249,253,255,253,241,96 
760  SYNBOL  242,248,144,248,252,254,252,240,96 
770  SYNBOL  243,40,16,56,124,124,124,56,16 
780  SYNBOL  244,15,15,15,255,255,255,255,255 
790  SYNBOL  245,240,240,240,255,255,255,255,255 
800  SYNBOL  246,255,255,255,255,255,255,255,255 
810  SYNBOL  247,0,0,0,255,255,255,255,255 
820  A$(0)-CHRt(32)+CHRf(240)+CHRI(241) 

830  At(l)>CHRI(32)+CHRI(240)+CHR$(242) 

840  Bf«CHRt(243) 

850  NI>CHRI(32) 

860  NNI-N$*Nt 
870  RETURN 
880  HX>1 
890  HYM 
900  BX>1 
910  BY-1 
920  B1«BY 
930  Z-0.5 
940  ERASE  TB 
950  DIN  TB(40,25) 

960  PEN  3 
970  CLS 

980  FOR  I«ll  TO  31 
990  C«INT(RN0»4)M 

1000  FOR  J>24  TO  INT(RND*6)M4  STEP-1 

1010  LOCATE  I,J 

1020  PRINT  CHRI(240+C); 

1030  TB(I,J)«1 
1040  NEXT  J 
1050  NEXT  I 
1060  RETURN 
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Ahora  se  han  invertido  los  papeles.  Su  misión  es  manejar 
las  defensas  contra  aviones  e  intentar  abatir  los  aviones  que 
vuelan  sobre  su  posición.  Para  disparar  hay  que  usar  una 
tecla  cualquiera.  Inicialmente  dispone  de  diez  misiles.  Si  consi¬ 
gue  abatir  diez  aviones,  obtendrá  una  bonificación  de  diez  pun¬ 
tos  V  diez  nuevos  misiles  adicionales. 


10  reh 

20  REH  I  D.C.A.  i 
30  REH  ttltliftii 
40  60SUB  630 

SO  A$«RI6HTI(A$,l)*LEFTt(A<,39) 

60  BI>RI6HTt(6t,39)+LEFTf(BI,i) 

70  LOCATE  1,1 
80  PEN  1 
90  PRINT  A>| 

100  LOCATE  1,3 
lio  PRINT  B<t 
120  RMNKEYf 

130  IF  RIO"  AND  HY«25  TREN  HY«24:N<*CHRI(244)sNH>NN-l 
140  PEN  3 

150  IF  HY025  THEN  NY«HY-2i LOCATE  HX,HYiPRINT  HI;tL0CATE  HX,HY+2iPRINT  0$; 

160  IF  HY04  THEN  260 

170  IF  HIDt(BI,20,l)>0t  THEN  260 

100  LOCATE  NX,3 
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190  PRINT  E<; 

200  LOCATE  HX,HY 
210  PRINT  0«; 

220  PRINT  S«; 

230  S-S+1 

240  Sf«LEFT$(B$,17)^01l+RI6HT$(BI,19) 

250  BOTO  350 

2i0  IF  HY02  TREN  380 

270  IF  NI0$(A$,20,1)>0«  THEN  3B0 

280  LOCATE  NX,1 

290  PRINT  E$; 

300  S«S+1 
310  LOCATE  HX,HY 
320  PRINT  0$; 

330  PRINT  SI; 

340  AI*LEFTI (Al, 17)+01I+RIBHTI (Al, 19) 

350  IF  s>l  AND  s/10>INT(S/10)  THEN  80SUB  560 

360  HY«25 

370  NI>CHRI(246) 

380  LOCATE  1,25 
390  PEN  3 

400  PRINT  "S  :’¡NN5 

410  IF  NH<1  AND  NY»25  THEN  440 

420  IF  HY<«2  THEN  LOCATE  HX,2sPRINT  0Ií:HY»25:HI»CHRI(246) 

430  80T0  50 

440  IF  S>R  THEN  R-S 

450  LOCATE  8,11 

460  PRINT  'SCORE  :*5S,*REC0RD  ;*5Rí 
470  LOCATE  16,15 
480  PRINT  "OTRA  ?" 

490  RI»INKEYI 

500  IF  RIO""  THEN  490 

510  RI’INKEYI 

520  IF  Rl*""  THEN  510 

530  IF  RI<>"N"  AND  Rl<>"n"  THEN  40 

540  CLS 

550  END 

560  AI«A1I 

570  BI>B1I 

580  NH^NHHO 

590  FOR  I-l  TO  300 

600  NEXT  I 
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Defensa  contra  aviones 


¿10  S>SM0 
¿20  RETURN 
¿30  DEFINT  A-Z 
¿40  HODE  1 

¿50  INK  l,18iINK  2,24>INK  3,¿>INK  4,2 
¿¿0  CLS 
¿70  BOROER  i 
¿80  PAPER  4 

¿90  SYHBOL  240, 193, 224, 224, 255, 255, 255, ¿4,0 
700  SYHBOL  241,248,144, 249,253,255,253,241, 9¿ 
710  SYHBOL  242,31, 9, 159, 191, 255, 191, 143,¿ 

720  SYHBOL  243,131,7,135,255,255,255,2,0 
730  SYHBOL  244,1¿,5¿,5¿,5¿,5¿,5¿,1¿,5¿ 

740  SYHBOL  245,0,0,0,0,0,7,7,7 
750  SYHBOL  24¿,S¿,5¿,S¿,254,254,255,255,255 
7¿0  SYHBOL  247,0,0,0,0,0,192,192,192 
770  SYHBOL  248,14¿,84,5¿,254,5¿,84,14¿,0 
780  S«0 

790  AI«"iBI«**jOI«CHRf (32) «Oll-OI+OI+OI+OI 
800  FOR  !■!  TO  5 

810  AI>AltCHRt (240) +CHR$ (241 ) +01 t+0$+0$ 

820  Bt«B«+CHRI (242) +CHR$ (243) +011+01+01 
830  NEXT  I 

840  Al)>AtiBll«BI>EI-CHR$(248) 

850  Jt«CHRI(245)+CHRt(24¿)+CHR$(247) 

8¿0  HX>20iHY>25iHI-CHRI(24¿)iNH«15 
870  PEN  2iL0CATE  HX-1,HY!PRINT  Jl; 

880  PEN  liLOCATE  l,liPRINT  A4| 

890  SI>CHRI{7) 

900  LOCATE  l,3iPRINT  BIjiRETURN 


-  19  - 


Dos  jugadores  se  enfrentan  para  dividirse  el  espacio  vital. 
Cada  uno  de  ellos  debe  esforzarse,  al  irse  desplazando,  para 
no  cortar  jamás  su  trazado  o  el  de  su  adversario,  y  sin  salirse 
del  rectángulo  dibujado  en  la  pantalla.  Los  mandos  a  utilizar 
son  las  teclas  siguientes:  las  siguientes: 

Jugador  de  la  derecha:  <P>,  <L>,  <:>  y  <.> 
Jugador  de  la  izquierda:  <W>,  <A>,  <S>  y  <Z> 


10  REH  •*»»»»»»» 

20  REH  <  TRAZOS  * 

30  REH 

40  DIH  TB(40,25) 

50  60SUB  720 
60  D$>INKEYI 

70  HB«(D»»"L')-IDI»"j’)+(DI«’l') 

80  VB»(D$»'P')-(04»'.')+(Dt»'p‘) 

90  HA»(Dt»'A')-IDI»'S')+IDI«**’)-IO»«*s') 

100  VA«(DI»*ll*)-(DI-'Z")+(DI-V)-(D4«’z') 

lio  IF  HAOO  THEN  Hl«HAiVl«0 

120  IF  VAOO  THEN  V1>VA:H1»0 

130  IF  HBOO  THEN  H2>HBiV2>0 

140  IF  VBOO  THEN  V2«VBíH2»0 


Trazos 


150  X1«X1^H1 
160  Y1«Y1+V1 

170  IF  TB(XI,Y1)<>0  THEN  330 
ISO  LOCATE  XI, Y1 
190  PEN  3 
200  PRINT  Nt; 

210  T8(X1,Y1)-1 
220  X2«X2tH2 
230  Y2-Y2+V2 

240  IF  TB(X2,Y2)<>0  THEN  390 

250  LOCATE  X2,Y2 

260  PEN  4 

270  PRINT  N$i 

280  TB(X2,Y2)>1 

290  PRINT  SI} 

300  FOR  I«1  TO  200 

310  NEXT  I 

320  BOTO  60 

330  F2«F2tl 

340  60SUB  660 

350  IF  F2>10  THEN  450 

360  IF  INKEYIO”  THEN  360 

370  60SUB  790 

380  GOTO  60 

390  Fl-Fl+1 

400  BOSUB  660 

410  IF  Fl«10  THEN  520 

420  IF  INKEYIO"  THEN  420 

430  BOSUB  790 

440  GOTO  60 

450  CLS 

460  PEN  1 

470  LOCATE  10,6 

480  PRINT  "JUSADOR  DERECHA BANABOR'i 
490  LOCATE  16,11 
500  PRINT  F2}'A'}F1} 

510  GOTO  5B0 
520  CLS 
530  PEN  1 
540  LOCATE  10,6 

550  PRINT  'JUGADOR  IZBUIERDA  GANADOR'} 
560  LOCATE  16,11 
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Trazos 


570  PRINT  Fl}'A'iF2} 

560  LOCATE  15, ii 
590  PRINT  'OTRA  ?'| 

600  IF  INKEYIO"  THEN  600 

610  Dt«INKEYI 

620  IF  DI»"  THEN  610 

630  IF  DIO'N'  THEN  RUN 

640  CLS 

650  ENO 

660  FOR  !■!  TO  5 
670  PRINT 

660  FOR  J«1  TO  100 
690  NEU  J 
700  NEXT  I 
710  RETURN 
720  HODE  1 
730  INK  1,16 
740  INK  2,18 
750  INK  3,14 
760  INK  0,17 
770  PAPER  2 
780  BORDER  23 
790  ERASE  TB 
800  DIN  TB (40,25) 

Rtfl  CLS 

820  N$«CHR$(143) 

830  St«CHRI(7) 

640  PEN  1 

850  FOR  Xl-1  TO  40 

860  LOCATE  Xl,liPRINT  NtpTBIXl,!)*! 

870  LOCATE  Xl,24iPRINT  N({>TB(X1,24)-1 

880  NEXT  XI 

890  FOR  Yl>2  TO  23 

900  LOCATE  l,YliPRINT  N$pTB(l,Yl)>l 

910  LOCATE  40,YliPRINT  N$)tTB(40,Yl)sl 

920  NEXT  Y1 

930  LOCATE  3,2SiPEN  3 

940  PRINT  'JUGADOR  IZQUIERDA  i';Fl; 

950  LOCATE  23,25iPEN  4 

960  PRINT  'JUGADOR  DERECHA  i'|F2| 

970  Xl>9iYl>12:X2>32iY2-12iHl-l>Vl«0 
980  H2>-liV2-0>Sl>0iS2-0>RETURN 
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iDispóngase  a  practicar  los  deportes  de  invierno  sin  arries¬ 
gar  a  romperse  una  pierna!  Láncese  desde  lo  alto  de  la  pista 
e  intente  pasar  por  el  mayor  número  posible  de  puertas  sin 
chocar  con  los  palos.  Para  cambiar  de  dirección  pulse  cual¬ 
quier  tecla. 


10  REH  #»»»»*»♦«» 

20  REH  «  SLALOH  t 
30  REH 

40  60SUB  450 
SO  FOR  K>1  TO  300 

60  IF  K>-16  AND  (K-S)/10>INT((K-5)/i0)  THEN  60SUB  330 
70  IF  K<284  ANO  K/10*INTIK/10)  THEN  BOSUB  350 
BO  IF  INKEYIO*"  THEN  DX*-0X 
90  S1>SX 
100  SX-SX4DX 

lio  IF  SX<3  THEN  SX«3!DX-DX 
120  IF  SX>38  THEN  SX>3B!DX>-DX 
130  LOCATE  S1,SY 
140  PRINT  Bl; 

ISO  LOCATE  40,25 
160  PRINT  BBt 
170  LOCATE  SX,SY 
175  PEN  2 


Slalom 


180  PRINT  S$(DX/2+0.5l5 
190  S1«SX 
200  NEXT  K 
210  LOCATE  6,6 
220  PEN  3 

230  PRINT  ‘PUERTA(S)  SALTABAIS)  i’}T 

240  LOCATE  6,9 

250  PRINT  'OTRA  BAJABA  ?' 

260  OI«INKEY$ 

270  IF  DtO"  THEN  260 

280  Dt«INKEYI 

290  IF  DI»’*  THEN  280 

300  IF  DtO'N'  AND  DÍO'n'  THEN  RON 

310  CLS 

320  END 

330  IF  SXOP2+1  ANO  SXOP2+2  THEN  T»T+1:PRINT  Zl; 
340  RETURN 

350  P»P+(INT(RND(1)»3I-1)»8 

360  IF  P<3  THEN  P»ll 

370  IF  P>35  THEN  P»27 

380  P2«P1 

390  Pl-P 

400  LOCATE  P,24 

410  PEN  3 

420  PRINT  P$; 

430  PEN  4 
440  RETURN 
450  DIN  S$(l) 

460  SYHBOL  240,16,32,241,18,28,8,16,32 
470  SYHBOL  241,8,4,143,72,56,16,8,4 
480  SYHBOL  242,8,12,14,12,8,8,8,8 
490  SYHBOL  243,8,24,56,24,8,8,8,8 
500  SI(0)«CHRt(240) 

510  S$(1)«CHRI(241) 

520  Bt«CHRI(32) 

530  PI«CHRI(243)+Bf+BI+CHRf(242) 

540  HODE  1 
550  DX*’! 

560  SY«9 
570  SX«20 
580  S1«SX 
590  P«19 
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Slalom 


600 

610  Z»«CHR»(7) 
620  INK  0,2 
630  INK  1,26 
640  INK  2,16 
650  INK  3,22 
660  BORDER  23 
670  CLS 
6B0  RETURN 
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He  aquí  una  forma  curiosa  de  usar  un  ordenador;  ha  de 
intentar  recoger  lo  más  rápidamente  posible  las  migajas  que 
recubren  el  mantel.  Dispone  de  30  segundos  para  conseguir 
su  limpieza  total.  Las  migajas  están  representadas  por  puntos 
negros.  El  joystick  o  las  teclas  de  control  del  cursor,  le  permi¬ 
tirán  controlar  su  recogedor. 

10  REH  «HUtlHH* 

20  REH  •  RECOGEIOR* 

30  REH  «tttftmiii 
40  DIH  TB(40,25) 

SO  60T0  100 
¿0  K«J0Y(0) 

70  Dl«ÍK-4)-ÍK'0) 

80  D2>(K>1)-(K«2) 

90  GOTO  200 
100  80SUB  360 
lio  LOCATE  1,25 
120  PEN  3 

130  PRINT  *  TIEHPO  |■;INT(Z),•SC0RE 
140  PEN  1 

150  IF  Z<1  THEN  920 
160  ON  JS  GOTO  60 
170  Df«INKEYI 
180  Dl>(DI>Flt)-(Dt>F2$) 

190  D2>(D$>F3I)-(D4«F4I) 

200  IF  OlOO  THEN  DX>01sDY>0 
210  IF  0200  THEN  DY>D2:DX>0 
220  XP«PXtDX 
230  YP-PY+DY 

240  IF  TB(XP,YPI-1  THEN  XP»PXiYP»PY 

250  IF  TBíXP,YP)-2  THEN  8»S+1«PRINT  S»}íX«X+l 

260  LOCATE  PX,PY 


Recogedor 


270  PRINT  N${ 

280  LOCATE  XP,YP 
290  PRINT  Jl| 

300  T6(XP,YP)-0 

310  PX-XP 

320-  PY'YP 

330  Z-Z-0.2 

340  IF  X*NN  THEN  1060 

350  GOTO  lio 

360  CLS 

370  HODE  1 

380  INK  1,15 

390  INK  2,0 

400  INK  3,17 

410  INK  0,22 

420  60RDER  2 

430  LOCATE  11,11 

440  PRINT  ’JOYSTICK  ?*} 

450  IF  INKEYIO"  THEN  450 
460  DI>INKEY< 

470  I«RN0(1I 

480  IF  Dl«"  THEN  460 

490  IF  D$«*S«  OR  Dt«  ’s*  THEN  JS«1  ELSE  JS«0 
500  CLS 

510  J»>CHR<(224) 

520  Flt>CHRI(242)!F2f>CHRI(243) 

530  F3$«CHRI(240):F4I«CHRI(241) 

540  NI»'.' 

550  NI«CHRI(32) 

560  S-0 
570  NN>10 
580  X>0 
590  ERASE  TB 
600  DIN  TB<40,25) 

610  PEN  3 

620  FOR  PX«1  TO  40 
630  LOCATE  PX,1 

640  PRINT  CHRI(143);:TB(PX,1)«1 

650  LOCATE  PX,24 

660  PRINT  CHRII143)itTB(PX,24)«l 

670  NEXT  PX 

680  FOR  PY«2  TO  23 
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Recogedor 


690  LOCATE  1,PY 

700  PRINT  CHRI(143)í!TB(1,PY)»1 
710  LOCATE  40, PY 

720  PRINT  CHRI(143)j¡TB(40,PY)»l 

730  NEXT  PY 

740  PEN  3 

750  POR  I>1  TO  NH 

760  PX-INT(RND(l)«38)+2 

770  PY-INTIRNDa)»22)*2 

7B0  IF  TB(PX,PY)<>0  THEH  760 

790  LOCATE  PX,PY 

800  PRINT  HljsTB(PX,PY)«2 

810  NEXT  1 

820  PEN  1 

830  PX>INT(RND(l)«38)t2 
840  PY>INT(RNDil)«22)+2 
850  IF  TB(PX,PY)<>0  THEN  830 
860  LOCATE  PX<PY 
870  PRINT  Jt| 

880  Z«30 

890  DX-0 

900  DY»0 

910  RETURN 

920  FOR  I«1  TO  500 

930  NEXT  I 

940  IF  INKEYIO’"  THEN  940 
950  PEN  3 

960  IF  S>R  THEN  R>S 
970  LOCATE  14,11 
980  PRINT  'RECORD  i';R; 

990  LOCATE  14,17 
1000  PRINT  'OTRA  ?'| 

1010  DI»INKEYt 

1020  IF  D$«"  THEN  1010 

1030  IF  DIO'N'  AND  DtO'n'  THEN  100 

1040  CLS 

1050  END 

1060  NH-NHM 

1070  LOCATE  XP,YP 

1080  PRINT  N$| 

1090  80SUB  580 
1100  80T0  lio 
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Procure  avanzar  con  su  tanque  evitando  las  minas  que  el 
ordenador  ha  colocado  al  azar.  Para  dirigir  el  tanque  hay  que 
usar  las  teclas  de  control  del  cursor  o  el  joystick.  Cada  vez  que 
llegue  arriba  de  la  pantalla,  volverá  a  empezar  con  un  nuevo 
recorrido. 


10  REM  »»#»«« 

20  REH  «TAN8UE* 

30  REH  ******** 

40  R>0 

SO  DIH  TB(40,25) 
60  60SU6  770 
70  S»0 
80  H-40 
90  DL-100 
100  D>0 
lio  PEN  3 
120  POR  !■!  TO  40 
130  LOCATE  1,1 
140  PRINT  B«| 

ISO  NEXT  I 
160  PEN  1 
170  POR  I>1  TO  N 


Tanque 


180  P)l>INT(RN0(i)«38)f2 
190  PY>INT(RND11)*20)42 
200  LOCATE  PX,PY 
210  PRINT  Ht) 

220  TB1PX,PY)»1 
230  NEXT  I 
240  POR  1-2  TO  2S 
250  LOCATE  1,1 
260  PRINT  H>; 

270  TB(1,I)>1 
280  LOCATE  40,1 
290  PRINT  Ht) 

300  TB(40,I)-1 
310  NEXT  I 

320  JX>INT(RND(1)*21)M0 

330  JY>25 

340  LOCATE  JX,JY 

350  PRINT  Jlj 

360  POR  I>1  TO  DL 

370  NEXT  I 

380  Rt-INKEY$ 

390  Dl>(Rt-P14>-(RI-P2$) 

400  IP  DlOO  THEN  0*01 
410  IP  R«*P3t  THEN  0-0 
420  LOCATE  Jx,jy 
430  PRINT  CHRI(32); 

440  JX-JX^O 
450  JY-JY-1 

460  JX*JX+(J0Y(0)«4)-(J0Y(0)*8) 
470  IP  TB(JX,JY)<>0  THEN  540 
480  LOCATE  JX,JY 
490  PRINT  J$; 

500  S«SM 

510  SOUNO  1,1000/8,1,15 
520  IP  JY*1  THEN  690 
530  60T0  360 
540  LOCATE  JX,JY 
550  PRINT  El; 

560  RI-INKEYI 
570  IP  S>R  THEN  R*S 
580  LOCATE  15,10 
590  PRINT  'SCORE  :';S; 
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Tanque 


600  LOCATE  15,13 
610  PRINT  'RECORD  :‘}R; 

620  LOCATE  15,18 
630  PRINT  'OTRA  ?'| 

640  RMNKEYI 
650  IF  Rt>"  THEN  640 

660  IF  RfO'N'  AND  RtO'n*  THEN  ERASE  TBiSOTO  50 
670  CLS 
680  END 

690  FOR  I-l  TO  500 
700  NEXT  I 
710  H-H+1 
720  DL-DL-20 
730  ERASE  TB 
740  DIN  TB (40,25) 

750  CLS 
760  SOTO  100 
770  BORDER  22 
780  INK  0,25 
790  INK  1,0 
800  INK  2,16 
810  INK  3,1 
820  CLS 
830  Hl-'f 
840  N$>CHRt(32) 

850  SYNBOL  240,8,8,107,127,127,127,127,99 
860  JB>CHR$(240) 

870  Et-CHR$(143) 

880  B$>E$ 

890  Flt-CHRI(242) 

900  F2t-CHR$(243) 

910  F3$>CHRt(224) 

920  RETURN 
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ríe  aquí  un  juego  bastante  difícil  que  requiere  habilidad. 
Debe  intentar  marcar  el  mayor  número  posible  de  puntos 
eliminando  las  letras  representadas  por  la  computadora.  Utili¬ 
ce  el  joystick  o  las  teclas  de  control  del  cursor.  Atención:  debe 
hacer  desaparecer  las  letras  por  orden  alfabético,  evitando  los 
obstáculos  situados  al  azar  sobre  la  pantalla,  y  todo  ello  en  un 
tiempo  limitado.  (El  tiempo  que  queda  aparece  en  la  parte  de 
abajo  de  la  pantalla.)  Una  vez  eliminadas  todas  las  letras,  el 
juego  continúa  con  una  letra  suplementaria. 

10  REH  ftiMHHIIf 
20  REH  «  M.FAKT0  i 
30  REH 

40  DIH  T6(40,25) 

SO  80SUB  1020 
60  S«0 
70  í-0 

80  N4«CHRt(32) 

90  PKHRI(224) 

100  80SUB  640 
lio  FOR  >í  TO  í 
120  OH  JK  BOTO  190 
130  Dt>INKEYt 
140  DH>(Dt>Fll)-(0l>F2t) 

150  DV>(D«-F3$)-(D»-F4«) 

160  IF  OHOO  THEN  DX-DHiDY-O 
170  IF  DVOO  THEN  DY-DViDX-O 
180  BOTO  220 
(90  K>J0Y(0) 

200  DX-(K>4)-(K>B) 

210  DY>(K>1)-(K«2) 

220  Z>Z-0.1 


Alfabeto 


230  LOCATE  1,2S 
240  PEN  4 

250  PRINT  ■TIEIIPOt‘iINT(Z)| 

260  IF  Z<1  THEN  460 
270  PX«PXiO]( 

280  PY-PV+DY 
2?0  C-TBIPX.PY) 

300  IF  C>1^64  THEN  S>S+liPRINT  SIpGOTO  390 

310  IF  COO  THEN  PX«XPjPY»YP 

320  LOCATE  XP,YP 

330  PRINT  NI;>TB(XP,YP)>0 

340  LOCATE  PX,PY 

350  PRINT  PljíTB(PX,PY)»P 

360  XP-PXiYP-PY 

370  BOTO  120 

380  LOCATE  XP,YP 

390  PRINT  N4|iTB(XP,YP)>0 

400  LOCATE  PX,PY 

410  PRINT  PI|>TB(PX,PY)>P 

420  XP»PXiYP-PY 

430  NEXT  I 

440  608UB  640 

450  SOTO  lio 

460  D$«INKEYf 

470  IF  R<S  THEN  R>S 

480  PEN  2 

490  LOCATE  11,11 

500  PRINT  ■  TIEMPO  TRANSCURRIIO'; 

510  LOCATE  11,14 

520  IF  IHKEYIO”  THEN  520 

530  PEN  2 

540  PRINT  'SCORE  i'}S; 

550  LOCATE  11,17 
560  PRINT  'RECORD  :';R; 

570  LOCATE  11,20 
580  PRINT  'OTRA  ?'; 

590  DI>INKEY» 

600  IF  Df»"  THEN  590 

610  IF  DIO'N'  ANO  DfO'n'  THEN  60 

620  CLS 

630  END 

640  CLS 

650  INK  0,26 

660  INK  1,18 
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Alfabeto 


670  INK  2,22 
680  INK  3,0 
690  BORDEN  17 
700  CLS 
710  X-Xfl 

720  S$>CHRI(7)iP>229 
730  ERASE  TBiDIH  TB(40,25) 

740  PEN  1 

750  POR  P]I>1  TO  40 

760  LOCATE  PX,liPRINT  CHRI(143); 

770  TB(PX,l)-143iTB(PX,24)>143 
7B0  LOCATE  PX,24iPRINT  CHR4(143); 

790  NEXT  PX 

800  POR  PY«2  TO  23 

810  LOCATE  i,PYiPRINT  CHR«(143)| 

820  LOCATE  40,PY!PRINT  CHRI(143); 

830  TB(l,PY)«143iTB(40,PY)>143 
840  NEXT  PY 
850  POR  Z-1  TO  120 
860  60SUB  990 

870  LOCATE  PX,PY>PRINT  CHR4(143);iTB(PX,PY)>143 

880  NEXT  Z 

890  POR  Z«1  TO  X 

900  60SUB  990 

910  PEN  3tL0CATE  PX,PYiTB(PX,PY)*Zf64 
920  PRINT  CHR»(Zf64)} 

930  NEXT  Z 
940  PEN  2 
950  B08UB  990 

960  LOCATE  PX,PY«PRINT  PIjTB<PX,PY)«P 
970  XP»PXiYP«PYjZ«30jDX«0:DY«0 
980  RETURN 

990  PX>INT(RND(l)«38)f2iPY>INT(RND(l)t23)f2 

1000  IP  TB<PX,PY)<>0  THEN  990 

1010  RETURN 

1020  RODE  1 

1030  CLStLOCATE  11,11 

1040  PRINT  'JOYBTICK  ?'| 

1050  Dt*lNKEYtiC>RND(l) 

1060  IP  D$>"  THEN  1050 

1070  IP  Dt>'S'  OR  Dl>*s'  THEN  JK>1 

1080  Pll-CHRI(242)iP2t-CHRt(243) 

1090  P3t>CHRI(240)>P4l>CHR«(241) 

1100  RETURN 
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Después  de  un  largo  viaje  sin  gravedad,  no  resulta  nada 
fácil  aterrizar  suavemente  con  una  nave  espacial;  pero  gracias 
a  su  ordenador,  está  en  condiciones  para  efectuar  un  entrena¬ 
miento  sin  riesgos.  Debe  colocar  su  nave  en  una  de  las  cuatro 
zonas  previstas  a  este  efecto.  Puede  dirigirse  hacia  la  derecha 
y  hacia  la  izquierda  con  ayuda  de  las  teclas  de  control  del  cur¬ 
sor  o  el  joystick. 


10  REH 

20  REH  «  ATERRIZAJE  * 

30  REH 

40  SPEED  KEY  S,S 
50  60SUB  490 
60  FOR  I-l  TO  100 
70  NEXT  I 
BO  80SUB  670 
90  FOR  0>2  TO  23 
100  0MNKEY4 
lio  NH-NX 

120  NX»NX+(DI»CHRI(242>I-(D$=CHRI(243)) 
130  NX*NX+(J0Y(0)«4)-(J0YI0)«8) 

140  IF  NX<2  THEN  NX>2 
ISO  IF  NX>38  THEN  NX«38 
160  LOCATE  NH,Q-1 
170  PRINT  C$) 


Aterrizaje 


180  LOCATE  NH,8 
190  PRINT  C«; 

200  LOCATE  NX,Q 
210  PRINT  Nt; 

220  LOCATE  NX,QM 
230  PRINT  Nt; 

240  NEXT  0 

250  IF  INT((NX-3)/10)«(NX-3)/10  THEN  GOTO  60 

260  PEN  3 

270  LOCATE  NX,e 

280  PRINT  Cl; 

290  LOCATE  NX,8-1 
300  PRINT  C$j 
310  LOCATE  NX-1,QM 
320  PRINT  Hl; 

330  PEN  2 
340  LOCATE  2,7 

350  PRINT  ‘LA  NAVE  SE  HA  ESTRaLADO* 

360  LOCATE  12,12 
370  PRINT  "SCORE  i'jS-lj 
380  LOCATE  11,15 
390  PRINT  ‘OTRA  ?‘) 

400  POR  I>1  TO  100 
410  NEXT  I 

420  IF  INKEY$<>“  THEN  GOTO  420 

430  SPEED  KEY  30,5 

440  Di^INKEYI 

450  IF  DI*”  THEN  440 

460  IF  D$<>‘N‘  ANO  0»<>‘n‘  THEN  RUN 

470  CLS 

480  END 

490  INK  0,1 

500  INK  1,25 

510  INK  2,22 

520  INK  4,8 

530  BOROER  1 

540  PEN  1 

550  CLS 

560  60SUB  770 

570  B$>CHRf(32) 

580  N«<HR$(240)+CHR»(241) 

590  CI>B$iBt 
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Aterizaje 


600  Ht>CHRt(242)+CHRI(243) 

610  AKHRI(244)fCHRI(244) 

620  6I«CHRI(242) 

630  X<>CHR$(243) 

640  H«>CHR$(243)+CHRf(241)+CHRt(240)+CHRI(242) 

630  S>0 

660  RETURN 

670  FOR  I>1  TO  20 

680  NEXT  I 

690  CLS 

700  FOR  I-O  TO  3 
710  LOCATE  3tl»10,25 
720  PRINT  A<; 

730  NEXT  I 
740  S-S+1 

750  NX>INTIRND(l)«36)+2 
760  RETURN 

770  SYHBOL  240,0,31,63,127,239,239,255,239 
780  SYHBOL  241,0,224,240,248,220,220,252,220 
790  SYHBOL  242,239,127,63,75,128,128,64,224 
800  SYHBOL  243,220,248,240,72,4,4,8,28 
810  SYHBOL  244,255,255,255 
820  RETURN 
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Su  ordenador  le  invita  a  una  cacería  de  patos.  Los  patos 
vuelan  de  derecha  a  izquierda  por  la  parte  alta  de  la  pantalla. 
Vd.  se  desplaza  utilizando  las  teclas  de  control  del  cursor  o  el 
joystick.  La  tecla  <COPY>  le  permitirá  pararse.  Puede  efectuar 
tantos  disparos  como  quiera,  pero  tan  sólo  pasarán  20  patos 
y  su  objetivo  es  abatir  el  mayor  número  posible.  Para  dispa¬ 
rar,  pulse  la  barra  espadadora  o  apriete  el  botón  del  joystick. 
Si  alcanza  un  pato,  conseguirá  un  punto  y  lo  verá  caer  batien¬ 
do  sus  alas. 


10  REH  {ftifHffifHittHff 
20  REH  f  ü  CAZA  KL  PATO  » 
30  REH  «HHHHHHHffltl 
40  60SUB  390 
50  2«-Z 
60  H-Z+O.S 
70  CX«CX-1 

80  IF  CX<i  THEN  GOSUB  730 
90  IF  NC>0  THEN  880 
100  LOCATE  CX,Cy 
lio  PEN  0 
120  PRINT  CCKHI; 

130  JX«JXiDl 

140  IF  JX>37  THEN  JX«37 

150  IF  JX<3  THEN  JX>3 

160  LOCATE  X,Y 

170  PRINT  Nl$ 


La  Caza  del  pato 


180  LOCATE  JX,JY 
190  PEN  1 
200  PRINT  Jtj 
210  X>JX 

220  IF  TYOJY  THEN  TY»TY-2:60T0  240 
230  TX«JX 

240  IF  TY<3  THEN  780 
250  LOCATE  TX,TY 
2&0  PEN  1 
270  PRINT  Jl; 

280  IF  TYOJY  THEN  LOCATE  TX,TY+2:PRINT  N$; 

290  X«>INKEY$ 

300  D«2«1(X4»CHR4(242))-(XI»CHRI(243))) 

310  IF  OOO  THEN  01-D 

320  IF  Xt>CHRI(224)  THEN  D1«0 

330  IF  JS>1  THEN  JX>JXt2>(IJOY(O)>4)-(JOY(0)>8)) 

340  IF  X*<>  Nt  AND  (JS-0  OR  JOYIOXló)  THEN  50 

350  IF  TYOJY  THEN  50 

360  TY«JY-2 

370  TX-JX 

380  60T0  50 

390  CLS 

400  BORDER  24 

410  SYNBOL  240,0,0,0,15,31 

420  SYNBOL  241,63,124,254,255,255 

430  SYNBOL  242,0,0,254,255,255,124,124,15 

440  SYNBOL  243,0,0,0,128,240 

450  SYNBOL  244,8,28,42,8,8,8,8,20 

460  SYNBOL  245,146,84,56,254,56,84,146 

470  INK  0,1 

480  INK  1,16 

490  INK  2,22 

500  INK  3,25 

510  LOCATE  11,11:PRINT  ‘JOYSTICK  ?'| 

520  X««INKEY$ 

530  IF  X»»**  THEN  520 

540  IF  XI» *8'  OR  Xl»'5*  THEN  JS«1  ELSE  JS»0 

550  CLS 

560  DIN  CCKl) 

570  J$>CHRI(244) 

580  NI>CHRI(32) 

590  EI»CHRI(245) 
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La  Caza  del  pato 


600  CC$  (0 )  >CHR$  ( 240 KCHRI  ( 24 1 )  +CHRI  ( 243 ) 

610  CC«(1)-CHR)(240KCHR«(242)^CHR$(243)+N4 

620  JX>20 

630  JY>25 

640  NC-20 

650  TX>JX 

660  TY«JY 

670  Z«0.5 

680  CX«37 

690  CY«i 

700  X-JX 

710  Y«JY 

720  RETURN 

730  LOCATE  1,1 

740  PRINT 

750  CX«37 

760  NC*NC-1 

770  RETURN 

780  IF  TX«CX  OR  TX«CX«1  THEN  1000 
790  LOCATE  TX,TY+2 
800  PRINT  N$; 

810  LOCATE  TX,TY 
820  PRINT  Jl; 

830  LOCATE  TX,TY 
840  PRINT  N«} 

850  TX>JX 
860  TY-JY 

870  IF  NCOO  THEN  250 

880  CLS 

890  PEN  3 

900  LOCATE  14,11 

910  PRINT  ’SCORE  i'|8| 

920  LOCATE  13,14 

930  PRINT  'OTRA  ?'i 

940  IF  INKEYÍO"  THEN  940 

950  X$«INKEYI 

960  IF  X»«*'  THEN  950 

970  IF  XIO'N*  AND  XlO'ri*  THEN  RUN 

980  CLS 

990  END 

1000  LOCATE  TX,TY 
1010  PRINT  Eli 


-  47  - 


La  Caza  del  pato 


1020  LOCATE  TX,TY+2 
1030  PRINT  NI; 

1040  PRINT  CHRI(7); 
loso  POR  I>1  TO  SO 
1060  NEXT  1 
1070  S>SM 
lOBO  DX«CX 
1090  CX-37 
1100  PEN  0 
1110  POR  1-2  TO  2S 
1120  Z-Z 
1130  H>ZtO.S 
1140  LOCATE  DX,I-1 
USO  PRINT  NI^NItNI 
1160  LOCATE  OX,I 
1170  PRINT  CCKH); 
1160  PRINT  CHRI(7); 
1190  POR  J>1  TO  10 
1200  NEXT  J 
1210  NEXT  I 
1220  NC«NC-1 
1230  POR  I«1  TO  SOO 
1240  NEXT  I 
USO  CLS 

1260  IP  NC«0  THEN  880 
1270  TY-JY 
1280  GOTO  SO 
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Procure  dirigir  su  cienpiés  robot  el  tiempo  más  largo  posi¬ 
ble.  El  ha  de  alimentarse  con  las  flores  verdes  (las  flores  ro¬ 
jas  están  envenenadas)  sin  salirse  nunca  del  cuadro  o  recortar 
su  propio  cuerpo.  La  dificultad  reside  en  que  su  longitud  au¬ 
menta  una  unidad  en  cada  comida,  lo  cual  hace  que  los  des¬ 
plazamientos  cada  vez  resulten  más  complicados.  Emplee  las 
teclas  de  control  del  cursor  o  el  joystick. 


iO  REH 

20  REH  •  CIENPIES  i 
30  REH 

40  DIH  TB(40,2S) 

50  60SUB  ¿10 
¿0  It-INKEYI 
70  JY-JOY(O) 

80  DI>(It>Fl«)’(X4>F2l) 

90  DX-0X+(JY«4>-(JY»B) 

100  DY«(X»«F3$)-(X»«F44) 
lio  DY»DY+(JY«1)-(JY»2) 

120  IF  DXOO  THEN  Xl>DXiYl>0 
130  IF  OYOO  THEN  Yl«DYiXl>0 
140  IF  FL>1  THEN  FL>0!60T0  220 
150  LOCATE  A(1,X),A(1,Y) 

160  PRINT  N«| 

170  TB(A(l,X),A(l,Y))-0 


Cienpiés 


180  FOR  I«1  TO  L 
190  A(I,Y)»A<I+1,Y) 

200  A(I,)()«A(IM,)() 

210  NEXT  I 

220  A(L,Y)»Aa-l,Y)tYl 
230  A(L,X)>A(L-1,X)+II1 
240  6>TB(AIL,X),A(L,Y)) 

2S0  IF  6-B  THEN  310 
240  IF  60N  THEN  380 
270  LOCATE  A(L,X),Aa,Y) 

280  PRINT  N<i 

290  TB(A(L,X),A(L,Y))>n 

300  BOTO  60 

310  60SUB  1310 

320  LOCATE  A(L,X),A(L,Y) 

330  PRINT  N«; 

340  TB(A(L,X),A(L,Y))>H 

3S0  L>Lil 

360  FL-1 

370  60T0  60 

380  60SUB  SOO 

390  LOCATE  11,10 

400  PRINT  'SCORE  :*iLtl0-705 

410  LOCATE  11,15 

420  PRINT  "OTRA  ?'| 

430  Xt-INKEYI 

440  IF  XIO"  THEN  430 

450  XI>INKEY$ 

460  IF  X»«"  THEN  450 

470  IF  XtO'N*  AND  XIO'n'  THEN  RUN 

480  CLS 

490  END 

500  PEN  1 

510  FOR  I>1  TO  6 

520  LOCATE  A(L,X),A(L,Y) 

530  PRINT  N$| 

540  PRINT  CHR«(7); 

550  LOCATE  A(L,X),A(L,Y) 

560  PRINT  "i'i 
570  TB(A(L,X),A(L,Y))>H 
580  NEXT  I 
590  PEN  3 
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Cienpiés 


¿00  RETURN 
¿10  INK  0,2¿ 

¿20  INK  1,1¿ 

¿30  INK  2,22 
¿40  INK  3,2 
¿50  BDRDER  8 
¿¿0  CL8 
¿70  608UB  730 
¿80  60SUB  940 
¿90  6D8UB  1030 
700  808UB  1270 
710  808UB  1310 
720  RETURN 
730  NI-CHRI(32) 

740  N-0 
750  Hl-T 
7¿0  H>1 
770  Bf«*#' 

780  B-2 

790  DIN  A(70,2) 

800 

810  R-3 
820  L-8 
830  DOM 
840  y>i 
850  X-2 
8¿0  FL-0 
870  Xl-1 
880  yi-0 

890  F1I-CHRI(242) 

900  F2l>CHRtl243) 

910  F3I-CHRX240) 

920  F4$>CHR<(241) 

930  RETURN 

940  PEN  3 

950  FOR  I>1  TO  L 

9¿0  A(I,yi>13 

970  A(I,X)>3«I 

980  LOCATE  A(I,X),A(I,y) 

990  PRINT  Ht| 

1000  TB(A(I,X),A(I,y))>H 
1010  NEXT  I 
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Cíenpiés 


1020  RETURN 
1030  PEN  1 
1040  FOR  I>1  TO  40 
1050  LOCATE  1,1 
1060  PRINT  Hl; 

1070  T6(r,l)>H 
lOaO  LOCATE  1,25 
1090  PRINT  H4| 

1100  TB(I,25)>H 
1110  NEXT  I 
1120  FOR  1-2  TO  24 
1130  LOCATE  1,1 
1140  PRINT  H4| 

1150  T6(1,1)>H 
1160  LOCATE  40,1 
1170  PRINT  H$) 

1180  TB(40,I)>H 
1190  NEXT  I 
1200  FOR  !■!  TO  60 
1210  BOSUB  1270 
1220  LOCATE  PX,PY 
1230  PRINT 
1240  TB(PX,Py)«H 
1250  NEXT  1 
1260  RETURN 

1270  PX>INT(RND(l)«3Bi2) 

12B0  PY>INT(RND(1)»23^2) 

1290  IF  TB(PX,PY)<>0  THEN  1270 

1300  RETURN 

1310  BOSUB  1270 

1320  PEN  2 

1330  LOCATE  PX,PY 

1340  PRINT  B4; 

1350  TB(PX,PY)-B 
1360  PEN  3 
1370  RETURN 
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En  este  juego,  debe  bombardear  con  ayuda  de  su  avión  a 
las  cifras  que  se  encuentran  en  la  parte  baja  de  la  pantalla  a 
fin  de  añadir  sus  valores  a  su  suma  de  puntos.  Para  soltar 
una  bomba,  pulse  una  tecla  cualquiera.  Cada  cifra  alcanzada 
aumenta  el  número  de  bombas  disponibles. 


10  REH 

20  REN  i  NUHERIII  • 

30  REN  iiiHitifi* 

40  DIN  TB(40,2S) 

SO  R>0 
60  ERASE  TB 
70  DIN  TB(40,25) 

80  60SUB  480 
90  LOCATE  AX,AY 
100  PEN  1 
lio  PRINT  A$; 

120  PEN  2 
130  XI«INKEY$ 

140  IF  X»<>'’  AND  BY«0  THEN  BX«AXíBY»AY+l:NN«NN-l 
150  IF  BYOO  THEN  BY«BY+1 

160  IF  BY>25  THEN  LOCATE  BX,BY-1:PRINT  NI|iBY«0iIF  NH<1  THEN  330 
170  IF  BYOO  AND  TB(BX,BY)<>0  THEN  60SUB  230 


Numerix 


180  IF  BYOO  THEN  LOCATE  BX,By>l:PRINT  NtpLOCATE  BX,BY:PRINT  Bl; 
190  IF  BY»0  THEN  FOR  I«1  TO  S:NEXT  I 
200  AX>AX-1 

210  IF  AX<1  THEN  AX«3B>L0CATE  l,AYiPRINT  Hl| 

220  BOTO  90 
230  LOCATE  BX,BY-1 
240  PRINT  NI) 

250  LOCATE  BX,BY 
2Ó0  PRINT  NI) 

270  S«S^TB(6X,BY)*10 

280  TE(BX,BY)«0 

290  BY»0 

300  NH>NHtO.S 

310  60SUB  690 

320  RETURN 

330  PEN  3 

340  LOCATE  15,10 

350  PRINT  'SCORE  i')S) 

360  IF  S>R  THEN  LET  R«S 
370  LOCATE  15,13 
380  PRINT  'RECORD  i')R 
390  LOCATE  15,16 
400  PRINT  'OTRA  ?*) 

410  XI-INKEYI 

420  IF  XIO"  THEN  410 

430  XI-INKEYI 

440  IF  XI-"  THEN  430 

450  IF  XIO'N'  AND  XlO'n*  THEN  BOTO  60 

460  CLS 

470  END 

480  INK  0,23 

490  INK  1,9 

500  INK  2,16 

510  INK  3,0 

520  BORDER  2 

530  CLS 

540  NI>CHRI(32) 

550  AI>CHRr(240)+CHRI(241KNI 
560  AX-38 
570  AY»3 

580  BI>CHRI(242) 

590  HI-NI+NI+NI 
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Numerix 


600  BX-O 
610  BY-0 
620  608UB  780 
630  FOR  I>1  TD  15 
640  80SUB  690 
650  NEXT  I 
660  NH>20 
670  8>0 
680  RETURN 

690  J-INT(RND(l)t9)il 
700  X>INT(RND(1)»39)M 
710  Y*INT(RND(l)t3)+23 
720  IF  TBIX,Y)<>0  THEN  700 
730  PEN  3 
740  LOCATE  X,Y 
750  PRINT  CHR<(JM8)) 

760  TB(X,Y)*J 
770  RETURN 

780  8YHB0L  240,0,0,0,0,0,63,127,255 
790  SYHBOL  241,0,0,0,1,3,255,255,255 
800  8YflBDL  242,40,16,56,124,124,124,56,16 
810  RETURN 
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Un  portaviones  enemigo  se  ha  aventurado  por  las  aguas 
territoriales  y  no  hace  caso  a  los  requerimientos.  A  los  man¬ 
dos  de  su  Mirage  2000,  debe  destruirlo  antes  de  que  constitu¬ 
ya  una  amenaza  para  su  base.  Para  disparar  pulse  una  tecla 
cualquiera. 


10  REK 

20  REH  •  EXOCET  » 

30  REH 
40  R-0 

50  60SUB  680 
iO  60SUB  700 
70  PEN  1 

60  LOCATE  AX,AYiPRINT  A$| 

90  IF  6X>36  THEN  LOCATE  37,BYiPRINT  HfpBB>ii60T0  120 
100  PEN  7 

lio  LOCATE  BX,6Y>PRINT  B$| 

120  AX-AX-1 

130  IF  AX<1  THEN  LOCATE  1,AY:PRINT  H«;:AX«38 
140  BB>BB^0.2 
ISO  BX>INT(BB) 

160  XI-INKEY» 

170  IF  XIO"  AND  EY«0  THEN  EX«AXiEY»AY+liNX«NX-l 


Exocet 


180  IF  EYOO  THEN  GOTO  220 

190  FOR  I>1  TO  10 

200  NEXT  I 

210  BOTO  70 

220  EX>EX-1 

230  EY-EY+l 

240  LOCATE  EXM,EY'1:PRINT  Nt; 

250  IF  EX<1  THEN  EX-40 

260  IF  EY>26  THEN  BOTO  310 

270  IF  EY>2S  AND  ABS(EX-2-BX)<2  THEN  60SUB  530 

280  PEN  2 

290  LOCATE  EX,EYiPRINT  El; 

300  GOTO  70 

310  IF  EXMO  THEN  EX«1 
320  LOCATE  EXM,EY-liPRINT  Nt| 

330  EY>0 
340  EX>0 

350  IF  NX-0  THEN  370 
360  BOTO  70 
370  CLB 

380  IF  S>R  THEN  R>S 

390  XI-INKEYI 

400  IF  XIO"  THEN  390 

410  PEN  3 

420  LOCATE  11,10 

430  PRINT  'SCORE  i')S| 

440  LOCATE  11,13 
450  PRINT  ‘RECORD  i‘|R| 

460  LOCATE  11,16 

470  PRINT  ‘OTRA  ?‘j 

480  Xt-INKEYI 

490  IF  Xt>"  THEN  480 

500  IF  XtO'N*  AND  XIO'n'  THEN  60 

510  CLS 

520  END 

530  LOCATE  EXM,EY-1 
540  PRINT  N«; 

550  8>SM0 
560  PEN  2 
570  LOCATE  EX,EY 
580  PRINT  Fl} 

590  FOR  I>1  TO  30 
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Exocet 


600  )(*INT(RND(1)M) 

¿iO  Y-INT(RND(1)»&) 

620  LOCATE  EX+X-1,EY-Y 
630  PRINT  F<| 

640  NEXT  I 
690  FOR  I-l  TO  200 
660  NEXT  I 
670  NX-NXtl 
600  CLS 
690  BOTO  70 
700  CLS 

710  BI>CHR$ (32) tCHRI (240) *CHR< (241 ) +CHR$ (242) 

720  AX-38 

730  8«0 

740  BB>1 

750  BX>1 

760  A$>CHRI(243)+CHR$(244)+CHRt(32) 

770  NI>CHRI(32) 

7B0  NI>NI+N»+Nt 
790  E$«CHRI(245) 

800  F$>CHR$(246) 

810  EX-0 
820  EY>0 
830  XC*2 
840  NX«20 
850  BY>25 
860  AY-8 
870  RETURN 
880  BORDER  2 
890  INK  0,23 
900  INK  1,25 
910  INK  2,16 
920  INK  3,0 
930  CLS 

940  SYHBOL  240,0,0,0,0,7,255,255,127 
950  SYHBOL  241,16,16,S6,252,255,25S,255,255 
960  SYHBOL  242,0,0,0,0,224,255,252,248 
970  SYHBOL  243,0,0,0,0,0,63,127,255 
980  SYHBOL  244,0,0,0,1,3,255,255,255 
990  SYHBOL  245,0,0,0,0,125,255,125,0 
1000  SYHBOL  246,8,33,128,10,0,40,0,16 
1010  RETURN 
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Ahora  debe  ayudar  a  una  pobre  tortuga  a  volver  al  mar,  evi¬ 
tando  a  los  voraces  cangrejos  que  patrullan  por  la  playa.  Cada 
tortuga  que  alcance  su  propósito  le  proporciona  1  punto.  Dis¬ 
pone  de  cinco  itinerarios  para  intentar  marcar  su  puntuación 
máxima.  Emplee  las  teclas  de  control  del  cursor  para  avanzar 
y  para  retroceder. 


10  REH 

20  REH  •  CAHOREJOS  * 

30  REH  tiiiltifititi 
40  DEFIHT  A-Z 
SO  608UB  830 
60  LOCATE  1,21 
70  PEH  1 

80  PRINT  'VIDAS  RESTAMTES ';NP; 

90  A$>RI8HTt(AI,l)+LEFTt(AI,39) 

100  B4«RI8HTI(B$,39)«LEFTI(BI,1) 

lio  LOCATE  l,n 

120  PRINT  Atj 

130  LOCATE  1,X2 

140  PRINT  B4i 

ISO  LOCATE  1,13 

160  PRINT  A»i 

170  LOCATE  1,1(4 

180  PRINT  B«| 

190  Dt-INKEY$ 

200  IF  INKEYtO"  THEN  200 


Cangrejos 


210  PY»PY+(DI»F1<)HDI»F2I) 

220  IF  PY>11  THEN  PY>11 
230  IF  PY-3  THEN  380 
240  Ct-NI 

250  IF  PY>31  08  PY-X3  THEN  C$>HID4(A$,PX,1) 
200  IF  PY-X2  OR  PY-X4  THEN  Ct>NID<(B«,PX,l) 
270  IF  CtONO  THEN  560 
280  LOCATE  PX,YP 
290  PRINT  N«| 

300  LOCATE  PX,PY 
310  PEN  3 
320  PRINT  P4) 

330  PEN  1 
340  YP-PY 
350  T-T+1 

360  IF  T>500  THEN  680 
3/0  80T0  60 
380  LOCATE  PX,YP 
390  PRINT  Nt; 

400  LOCATE  PX,PY 
410  PEN  3 
420  PRINT  Pl| 

430  PEN  1 

440  PRINT  CHRt(7)) 

450  FOR  I-l  TO  200 
460  NEXT  I 
470  LOCATE  PX,PY 
480  PRINT  N4) 

490  PY-10 
500  YP-PY 
510  8-841 
520  LOCATE  1,1 

530  PRINT  'ECORE  i'i8,, 'RECORD  i'|R| 

540  B08UB  1170 
550  BOTO  60 
560  NP-NP-1 
570  PEN  2  . 

580  LOCATE  PX,YP 
590  PRINT  NI) 

600  LOCATE  PX,PY 
610  PRINT  CHRI(225)| 

620  BOSUB  1220 
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Cangrejos 


630  IF  NP>0  THEN  680 
640  PY-10 
650  YP«PY 
660  608UB  1170 
670  BOTO  60 
680  CL8 

690  IF  8>R  THEN  R-8 
■^695  PEN  1 

700  IF  T<500  THEN  730 
710  LOCATE  11,9 

720  PRINT  ■»  TIEHPO  TRANSCURRIBO 

730  LOCATE  11,13 

740  PRINT  'BCORE  i'iS; 

750  LOCATE  11,17 
760  PRINT  'RECORD  i'iR} 

770  LOCATE  11,21 
780  PRINT  'OTRA  ?'| 

790  IF  INKEYIO"  THEN  790 
800  Dt-INKEY< 

810  IF  0I-"  THEN  790 

820  IF  DIO'N'  AND  DIO'n'  THEN  50 

830  CL8 

840  END 

850  HODE  1 

860  INK  0,24 

870  INK  1,0 

880  INK  2,16 

890  INK  3,22 

900  BORDER  2 

910  CLS 

920  SYHBOL  240,24,90,126,60,60,126,90 
930  SYHBOL  241,7,15,31,31,18,16,12 
940  SYHBOL  242,224,240,248,248,72,8,48 
950  P««CHRI(240) 

960  Nf«CHR«(32) 

970  F14>CHRI(240) 

980  F2t>CHRI(241) 

990  A$«" 

1000  B4-" 

1010  S-0 
1020  NP«5 
1030  PX-20 
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Cangrejos 


1040  PY»11 
1050  vp«py 
1060  1(1-5 
1070  X2-6 
1080  n-B 
1090  X4-9 
1100  T-0 
1110  RESTORE 
1120  POR  I-l  TO  40 
1130  REAO  A 
1140  A»>AI4CHR$(A) 

1150  NEXT  I 
1160  8l«Af 
1170  X-RNO (381*1 

1180  A«-RI6HTI(AI,X)*LEFTI(AI,40-X) 

1190  RETURN 

1200  DATA  32,241,242,32,32,241,242,32,32,32,241,242,32,32,32,32,32,241,242,32 

1210  DATA  32,32,241,242,32,32,32,241,242,32,32,241,242,32,32,241,242,32,32,32,32 

1220  SOUND  1,500,100,15 

1230  SOUND  1,0,2 

1240  SOUND  1,500,75,15 

1250  SOUND  1,0,2 

1260  SOUND  1,500,25,15 

1270  SOUNO  1,0,2 

1280  SOUND  1,500,100,15 

1290  SOUND  1,0,2 

1300  SOUND  1,425,75,15 

1310  SOUND  1,0,2 

1320  SOUND  1,450,25,15 

1330  SOUND  1,0,2 

1340  SOUND  1,450,75,15 

1350  SOUND  lj0,2 

1360  SOUND  1,500,25,15 

1370  SOUND  1,0,2 

1380  SOUND  1,500,75,15 

1390  SOUND  1,0,2 

1400  SOUND  1,525,25,15 

1410  SOUND  1,0,2 

1420  SOUND  1,500,100,15 

1430  POR  I-l  TO  200 

1440  NEXT  I 

1450  RETURN 
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He  aquí  un  juego  que  se  acostumbra  a  ver  en  los  cafés. 
Gracias  a  su  ordenador,  ahora  podrá  jugar  con  él  sin  gastar 
ni  un  céntimo.  El  objetivo  del  juego  es  sencillo:  intentar  des¬ 
truir  una  pared  de  ladrillos  con  ayuda  de  una  pelota  que  debe 
ser  devuelta  con  su  raqueta.  Cada  ladrillo  roto  le  proporciona 
un  punto.  Tan  pronto  todo  el  muro  está  destruido  completa¬ 
mente,  aparece  otro  de  nuevo.  Dispone  de  diez  pelotas  para 
intentar  conseguir  la  máxima  puntuación.  Para  desplazar  la 
raqueta  utilice  el  joystick  o  las  teclas  de  control  del  cursor. 


10  REH 

20  REH  I  LA  PAREO  « 

30  REH 

40  OIH  TB(40,2S) 

SO  GOSUB  730 
60  GOTO  200 

70  D*2»UJ0y(0)*4)-(J0Y(0)*8)) 
80  IF  OOO  THEN  D0»D 
90  IF  J0Y(0)»0  THEN  D0=0 
100  Rl(*RXtD0 
lio  CH‘SGN(D0) 

120  RETURN 
130  D$*INKEY$ 

140  D*2»((D$-F1I)-(D$*F2I)) 

ISO  IF  DOO  THEN  D0>0 

160  IF  D»>>CHR$(224)  THEN  D0>0 

170  RX«RX+D0 


La  pared 


180  CH>SGN(D0) 

190  RETURN 
200  LOCATE  BX,BY 
210  PEN  1 
220  PRINT  Nt; 

230  BX-BX+DX 
240  BY«BY+DY 

250  IF  TB(BX,BY)<>0  TREN  DY»-DY:S»S+1:PRINT  CHR$(7)j 
260  LOCATE  BX,BY 
270  PEN  O 

280  PRINT  B$:TB(BX,BY)«0 

290  IF  BY*23  AND  ABS(BX-RX-3)>1  TREN  420 

300  IF  BY>23  AND  DX>5  AND  BX<36  TREN  LOCATE  BX,BY:PRINT  N«;;BX«BXtCR 

310  IF  BY»23  TREN  PRINT  CRR$(7) jiDY«-DY 

320  IF  BY«2  TREN  PRINT  CNR$<7) jiDY«-DY 

330  IF  BX*3  OR  BX=38  TREN  PRINT  CRRI(7)í:DX»-DX 

340  ON  JS  60SUB  70,130 

350  IF  RX<1  TREN  RX>1 

360  IF  RX>34  TREN  RX*34 

370  LOCATE  RX,RY 

380  PEN  2 

390  PRINT  R$; 

400  IF  S«204  TREN  60SUB  1290 

410  GOTO  200 

420  NB>NBM 

430  IF  NB«11  TREN  540 

440  LOCATE  BX,BY 

450  PRINT  N$; 

460  FOR  I-l  TO  3 
470  PRINT  CRRI(7)¡ 

480  FOR  Jal  TO  100 

490  NEXT  J 

500  NEXT  I 

510  DOaO 

520  60SUB  1230 

530  GOTO  200 

540  LOCATE  14,6 

550  PEN  3 

560  S«SM04«K 

570  PRINT  'SCORE  i'iSj 

580  IF  S>R1  TREN  Rl-S 

590  LOCATE  14,11 
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La  pared 


¿00  PRINT  ‘RECORD  >'|R1| 

¿10  LOCATE  14, 1¿ 

¿20  PRINT  ‘OTRA  ?'j 

¿30  N6*0 

¿40  K>0 

¿SO  S*0 

¿¿0  D»>INKEYI 

¿70  IF  DI<>"‘THEN  ¿¿O 

¿80  OMNKEYt 

¿90  IF  Dl>“  THEN  ¿80 

700  IF  DfO'N'  AND  DIO'n'  THEN  50 

710  CLS 

720  END 

730  HODE  1 

740  CLS 

730  INK  0,2 

7¿0  INK  1,2S 

770  INK  2,0 

780  INK  3,1¿ 

790  BORDER  17 
800  “APER  1 

810  ..m  240,255,255,255 

820  SYHBOL  241,¿0,12¿,255,2SS,255,255,12¿,¿0 

830  SYHBOL  242,8,8,8,8,8,8,S,25S 

840  SYHBOL  243,0,0,0,0,0,0,0,255 

850  B1$-CHRI(242) 

8¿0  B2«-CHRI(243) 

870  NI>CHR$(32) 

880  RI«N$^N^CHR$  (240)  ^CHRI (240)  ^CHRI (240)  ^N$+NI 
890  B$«CHRI(241) 

900  Flt*CHR«(242) 

910  F2I«CHRI(243) 

920  LOCATE  2,11 
930  PEN  2 

940  PRINT  ‘JOYSTICK  (S  O  N)  V] 

950  DI-INKEYI 

9¿0  IF  Dt»"  THEN  950 

970  IF  D$»'S‘  OR  B$>'s'  THEN  JSM  ELSE  JS»2 

980  CLS 

990  PEN  2 

1000  FOR  Bl(>2  TO  39 
1010  LOCATE  BX,! 


-  73  - 


La  pared 


1020  PRINT  CHRI(143)} 

1030  NEXT  BX 
1040  FDR  BY«2  TO  23 
1050  LOCATE  2,BY 
1060  PRINT  CHRI(143); 

1070  LOCATE  39, BY 
lOBO  PRINT  CHRI(143); 

1090  NEXT  BY 

1100  PAPER  3 

1110  POR  BY>3  TO  e 

1120  FOR  BX«4  TO  36  STEP  2 

1130  TB(BX,BY)>liTB(BXM,BY)>l 

1140  LOCATE  BX,BY 

liso  IF  BY/2<>INT(BY/2)  THEN  1180 

1160  PRINT  Blt;B2«i 

1170  GOTO  1190 

1180  PRINT  B2I;B1I; 

1190  NEXT  BX 
1200  NEXT  BY 
1210  PAPER  1 
1220  RX>17 
1230  RY>24 
1240  BY«23 

1250  BX>INT(RND(l)t32)+5 
1260  DY-1 

1270  0X-IINT(RND(l)«2)-0.5)«2 
1280  RETURN 
1290  K>K+1 
1300  S-0 

1310  LOCATE  BX,BY 
1320  PRINT  NI; 

1330  LOCATE  RX+2,RY 
1340  PRINT  NI; NI; NI; 

1350  80SUB  990 
1360  RETURN 
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El  ladrón  se  ha  escapado  llevándose  el  botín.  (Está  representa¬ 
do  por  un  cuadrado  negro).  Se  esconde  en  la  ciudad,  y  usted 
tiene  treinta  minutos  para  encontrarlo  y  detenerlo.  Atención, 
jno  se  precipitel  Efectivamente,  si  se  echa  sobre  él  sin  pensar, 
tiene  todas  las  posibilidades  de  escapársele.  La  mejor  manera 
de  cogerlo  es  alcanzarlo  de  lado.  (Es  el  método  más  eficaz  a 
condición  de  no  fallar).  Si  no  se  siente  lo  bastante  seguro  de 
sí  mismo,  atáquelo  de  cara,  lo  cual  es  más  fácil  pero  mucho 
menos  eficaz  ya  que  no  es  tan  discreto.  Otro  consejo:  no 
intente  perseguirlo;  esto  no  le  daría  resultado,  pues  él  es 
más' rápido  que  usted.  Ha  de  observar  sus  movimientos,  como 
un  detective.  Cuando  le  vea  que  da  la  vuelta,  acérquese  sin  ha¬ 
cer  ruido  y  sorpréndalo  en  el  momento  justo.  Pero,  recuerde, 
|el  tiempo  va  pasandol 

Para  desplazarse  utilice  el  joystick  o  las  teclas  de  control  del 
cursor: 

10  REN 

20  REN  •  PERSECUCION  « 

30  REN  •Hiitiitiiii** 

40  DIN  TB(40,25) 

50  60SUB  1360 
60  S>0 

70  N)>CHR>(32) 

80  V«>CHRI(224) 

90  V»224 
100  P4-CHRI(251) 
lio  P>2S1 
120  80SUB  B20 


Persecución 


Í30  ON  JK  60SUB  200 
140  DI>INKEY» 

150  DH>(Dt>Flt)-(DI«F2l) 

160  DV«(0«>F3I)-(D«>F4I) 

170  IF  DHOO  THEN  OX-DHiOY-O 
180  IF  DVOO  THEN  DY>DVtDX*0 
190  GOTO  230 
200  ST«J0Y<0) 

210  DX>(STM)-(ST>8) 

220  0Y«(ST-l)-(8T-2) 

230  Z«Z-0.2 
240  LOCATE  1,25 
250  PEN  1 

260  PRINT  ‘TIEflPOi'¡INT(ZM) 

270  IF  Z<0  THEN  :20 
280  PX-PX^DX 
290  PY-PY+DY 
300  C«TB(PX,PY) 

310  IF  C>V  THEN  1270 

320  IF  COO  THEN  PX-XPjPY»YP 

330  LOCATE  XP,YP 

340  PRINT  Nt|iTB(XP,YP)-0 

350  LOCATE  PX,PY 

360  PEN  2 

370  PRINT  PI|iTB(PX,PY)«P 
380  YP«PY 
390  XP'PX 
400  VX-VXiCX 
410  VY-VY+CY 

420  IF  TB(VX,VY)<>0  THEN  60SUB  660 
430  IF  TB(VX,VY)<>0  THEN  400 
440  LOCATE  XV,YV 
450  PEN  1 

460  PRINT  NI:>TB(XV,YV)«0 

470  LOCATE  VX,VY 

480  PRINT  V$;íTB(VX,VY)«V 

490  XV-VX 

500  YV-VY 

510  GOTO  130 

520  IF  INKEYIO"  THEN  520 
530  IF  R<S  THEN  R>8 
540  PEN  1 
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550  LOCATE  11,7 

560  PRINT  'TIEMPO  TRANSCURRIIO'i 

570  LOCATE  11,11 

500  PRINT  'OCORE  i'iOi 

590  LOCATE  11,19 

600  PRINT  'OTRA  ?'; 

610  D»>INKEY« 

620  IF  D«>"  THEN  610 

630  IF  DIO'N'  AND  DIO'n'  THEN  RUN 

640  CL8 

650  END 

660  DT-DTM 

'670  G08UB  770 

680  IF  TB(XV+CX,YV+CYI»0  THEN  VX«XV+CXíVY»YV+CY«RETURN 
690  DT*0T-2 
700  60SUB  770 

710  IF  TBaV+CX,YV+CY)»0  THEN  VX«XV+CX:VY«YV+CY:RETURM 

720  DT-DT-1 

730  608UB  770 

740  VX-XV+CX 

750  VY«YV+CY 

760  RETURN 

770  IF  DT>4  THEN  DT-DT-4 
780  IF  DT<1  THEN  DT-DT+4 
790  CX-(DT«1)-(DT»3) 

800  CY«(DT«2)-(DT»4) 

810  RETURN 
820  CLS 
830  PEN  2 

840  FOR  VX-1  TO  40 
850  LOCATE  VX,1 

860  PRINT  CHR$(143)|iTB(VX,l)-143 
870  LOCATE  VX,24 

880  PRINT  CHR$(143)|tTB(VX, 241-143 

890  NEXT  VX 

900  FOR  VY-2  TO  23 

910  LOCATE  1,VY 

920  PRINT  CHR«(143){tTBa,VY)>143 
930  LOCATE  40, VY 

940  PRINT  CHRt(143)|>TB(40,VY)>143 
950  NEXT  VY 
960  PEN  3 
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970  FOR  VX>1  TO  150 
980  60SUB  1230 
990  LOCATE  PX,PY 

1000  PRINT  CHR$(143)::TB(PX,PY)>143 

1010  NEXT  VX 

1020  60SUB  1230 

1030  VX«PX 

1040  VY»PY 

1050  PEN  1 

lOóO  LOCATE  VX,VY 

1070  PRINT  VIí:TB<VX,VY)»V 

1080  XV«VX 

1090  YV«VY 

1100  60SUB  1230 

1110  PEN  3 

1120  LOCATE  PX,PY 

1130  PRINT  PIí:TB(PX,PY)«P 

1140  XP»PX 

1150  YP«PY 

llóO  Z«30 

1170  CX>0 

1180  CY«0 

1190  0X>0 

1200  DY«0 

1210  DT«0 

1220  RETURN 

1230  PX«INT(RND(l)»38)+2 
1240  PY»INT(RN0(l)»22)+2 
1250  IF  TB(PX,PY)<>0  THEN  1230 
1260  RETURN 

1270  LOCATE  VX,VYiP£N  2iPRINT  CHR$(225)¡ 

1280  FOR  I»1  TO  5 

1290  SOUND  1,450,100,15 

1300  SOUNO  1,500,100,15 

1310  NEXT  I 

1320  ERASE  TB 

1330  DIN  TB(40,25) 

1340  S=S+1 
1350  SOTO  120 
1360  NODE  1 
1370  60RDER  1 
1380  INK  0,2 
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1390  INK  1,16 
1400  INK  2,22 
1410  INK  3,2S 
1420  CLS 

1430  F1I>CHRI(242) 

1440  F2f>CHRt(243) 

1450  F3I«CHR$(240) 

1460  F4I-CHRI(241) 

1470  LOCATE  11,11 
1480  PRINT  ’JOYSTICK  ?"} 

1490  0»«1NKEYI 
1500  PX>RN0(1) 

1510  IF  OI»'*  THEN  1490 

1520  IF  D»«*S*  OR  0$**s'  THEN  JK«1 

1530  RETURN 
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Está  solo,  abandonado  sobre  un  planeta  defendido  por 
robots  asesinos.  El  suelo  está  sembrado  de  minas  las  cuales 
debe  evitar  necesariamente.  Las  minas  se  hallan  representa¬ 
das  sobre  la  pantalla  mediante  rojos.  Al  comienzo  del  juego, 
cinco  robots  se  hallan  sobre  el  terreno.  Sin  perder  un  segun¬ 
do,  se  precipitan  hacia  usted,  siguiendo  siempre  ei  camino  más 
corto.  Por  suerte,  los  robots  son  ciegos  y  no  ven  las  minas  que 
se  hallan  entre  ellos  y  usted,  lo  cual  le  permite  eliminarlos,, 
siempre  que  se  desplace  del  modo  adecuado.  Para  ello  debe 
usar  el  joystick  o  las  teclas: 

<Q>  <W>  <E> 

<A>  <D> 

<z>  <x>  <c> 

según  la  dirección  que  haya  escogido.  Cuando  haya  elimina¬ 
do  a  todos  los  robots,  el  juego  continúa  con  un  robot  suple¬ 
mentario.  Si  salta  sobre  una  de  las  minas  o  le  mata  uno  de  los 
robots,  aún  no  se  ha  perdido  todo.  En  realidad  tiene  cinco  vi¬ 
das.  Si  desea  cambiar  el  número  de  minas,  modifique  el  valor 
de  la  variable  NM  en  la  línea  80. 

10  REH  §*»»«»»»♦» 

20  REH  «  ROBOTS  * 

30  REH  liiiiitM» 

40  DEFINT  A-Z 
so  DIH  TB(40,2S) 

60  NH«5 
70  Nl-5 
80  NHMO 
90  NR*N1 


Robots 


100  DIH  R(30,l) 

lio  60SUB  I&IO 

120  60SUB  1470 

130  60SUB  890 

140  ON  JS  60SUB  690,790 

ISO  FOR  !■!  TO  100 

160  NEXT  I 

170  C»TB(H)(,HY) 

160  IF  COH  AND  COO  THEN  490 

190  PEN  1 

200  LOCATE  )(,Y 

210  PRINT  N«;iTBa,Y)«0 

220  LOCATE  HX.HY 

230  PRINT  H»pTB(NX,HY)«H 

240  X>HX 

250  Y-HY 

260  T-0 

270  FOR  I>1  TO  NR 
280  IF  R(I,0)«0  THEN  420 
290  T-1 

300  RX>R(I,0)4S6N(HX-R(I,0)) 

310  RY>R(I,l)tS6N<NY-R(I,l)) 

320  C*TB(RX  RY) 

330  IF  C>H  Ór  C-R  THEN  8>SMiL0CATE  R(I,0) ,R(I,l)iPRINT  N$|> 
TB(R(I,0),R(I,l))>0iR(l,0)>0>60T0  420 
340  IF  C>H  THEN  490 
3S0  PEN  3 

360  LOCATE  R(I,0),R(I,1) 

370  PRINT  N«iiTB(R(I,0),R(I,l))>0 

380  LOCATE  RX,RY 

390  PRINT  RI)iTB(RX,RY)>R 

400  R(I,0)«RX 

410  R(I,1)-RY 

420  NEXT  I 

430  IF  T>0  THEN  450 

440  60T0  140 

450  S«84lO 

460  IF  INKEYIO”  THEN  460 
470  IF  NR<30  THEN  NR«NRM 
480  80T0  130 
490  NH-NH-1 
500  PEN  2 
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510  LOCATE  X,Y 

520  PRINT  NtpTB(X,Y)>0 

530  LOCATE  HX,HY 

540  PRINT  Ht|iTB(HX,HY)>H 

550  IF  INKEYtO"  THEH  550 

5¿0  IF  NH>0  THEN  NR>Nli60T0  130 

570  CL8 

580  LOCATE  10,11 
590  PRINT  ‘8C0RE  i'|8| 

600  LOCATE  10,21 
610  PRINT  "OTRA  ?»| 

620  PEN  1 

630  IF  INKEYIO"  THEN  630 

640  DMNKEYf 

650  IF  0t>"  THEN  640 

660  IF  DIO'N*  AND  DtO'n*  THEN  RUN 

670  CL8 

680  END 

690  DMNXEYI 

700  IF  DI«’Q'  THEN  HX»HX-1íHY»HY-1 
710  IF  D4«'N*  THEN  HY«HY-1 
720  IF  DI-'E*  THEN  HY-HY-liHX«HX+l 
730  IF  DI«'A'  THEN  HX-HX-1 
740  IF  Dt>'D'  THEN  HX>HX>1 
750  IF  DI-'Z*  THEN  HX»HX-liHY«HY+l 
760  IF  DI«’X’  THEN  HY-HY+1 
770  IF  Df-’C  THEN  HY»HY*liHX«HX*l 
780  RETURN 
790  J-JOY(O) 

800  IF  J>5  THEN  HX>HX-ltHY-HY-l 

810  IF  J-1  THEN  HY-HY-1 

820  IF  >9  THEN  HY-HY-1  iHX-HX4l 

830  IF  J-4  THEN  HX-HX-1 

840  IF  J-8  THEN  HX-HX+1 

850  IF  J-6  THEN  HX-HX-1  iHY-HYM 

860  IF  J-2  THEN  HY-HYM 

870  IF  J-10  THEN  HY-HYMiHX-HXil 

880  RETURN 

890  CL8 

900  PEN  1 

910  LOCATE  1,25 

920  PRINT  ’SCORE  t*|S) 
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930  IF  NH>1  THEN  980 
940  FOR  HX>1  TD  NH-i 
990  LOCATE  20tHX,25 
900  PRINT  H$; 

970  NEXT  HX 
980  PEN  2 
990  ERASE  TB 
1000  DIN  TB(40,2S) 

1010  FOR  HX-1  TO  40 

1020  LOCATE  HX,1 

1030  PRINT  H4|iTB(HX,l)>N 

1040  LOCATE  HX,24 

1050  PRINT  H)|iTB(HX,24)«H 

1060  NEXT  HX 

1070  FOR  HY>2  TO  23 

1080  LOCATE  1,HY 

1090  PRINT  H$iiTB(l,HY)*H 

1100  LOCATE  40, HY 

1110  PRINT  H$pT6(40,HY)«H 

1120  NEXT  HY 

1130  FOR  I>1  TO  NH 

1140  HX-lNT(RND(l)i3B)+2 

1150  HY«INT(RND(l)i22)t2 

1160  IF  T6(HX,HY)<>0  THEN  1140 

1170  LOCATE  HX,HY 

1180  PRINT  H$;:TB(HX,HY)«H 

1190  NEXT  I 

1200  PEN  2 

1210  FOR  I>1  TO  NR 

1220  R(I,0)-INT(RND(l)i3B)t2 

1230  R(I,l)>INT(RND(l)i22)+2 

1240  IF  TB(R(I,0>,R(I,1))<>0  THEN  1220 

1250  LOCATE  R(I,0),R(I,1) 

1260  PRINT  Rt|tTB(R(I,0),R(I,l))«R 
1270  NEXT  I 

1280  HX«INT(RND(1)*38)^2 

1290  HY«INT(RND(1)»22)^2 

1300  IF  TB(HX,HY)<>0  THEN  1280 

1310  X>HX 

1320  Y«HY 

1330  FOR  I>1  TO  5 

1340  LOCATE  HX,HY 
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1390  PEN  3 

1360  PRINT  CHR«(143)| 

1370  PRINT  CHRI(7)| 

1380  POR  J>1  TD  50 
1390  NEIT  J 
1400  LOCATE  HX,HY 
1410  PEN  1 

1420  PRINT  HI}iT6(HX,HY)«H 

1430  POR  J-1  TO  50 

1440  NEXT  J 

1450  NEXT  I 

1460  RETURN 

1470  CLS 

1480  NODE  1 

1490  INK  0,1 

1500  INK  1,25 

1510  INK  2,23 

1520  INK  3,16 

1530  BORDER  22 

1540  LOCATE  11,11 

1550  PRINT  'J0Y8TICK  ?*} 

1560  Dt>INKEYt 
1570  C«RN0(1) 

1580  IP  D$>"  THEN  1560 

1590  IP  D«>'8'  OR  Dt-*s'  THEN  JS«2  ELSE  JS«1 

1600  RETURN 

1610  SYMBOL  240,28,28,73,62,8,28,20,20 
1620  SYMBOL  241,60,126,219,255,255,126,36,60 
1630  SYMBOL  242,0,0,24,60,126,126,60,24 
1640  Hf>CHR$(240) 

1650  H>240 
1660  R$>CHRI(241) 

1670  R-241 
1680  M<>CHR$(242) 

1690  M>242 
1700  Nf>CHR4(32) 

1710  RETURN 
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Saltando  de  un  helicóptero  en  vuelo,  intente  alcanzar  el 
blanco  situado  en  el  suelo.  Una  primera  presión  sobre  una 
tecla  le  permite  bajar  verticalmente  en  caída  libre.  Una  segun¬ 
da  presión  provoca  la  abertura  del  paracaídas.  El  descenso 
continúa  más  lentamente,  y  con  un  ángulo  de  45  grados, 
puesto  que  el  viento  le  empuja.  Cuando  más  espere  a  abrir  el 
paracaídas,  menos  será  desviado.  Pero,  no  aguarde  excesiva¬ 
mente  ya  que  por  debajo  de  los  cien  metros,  el  paracaídas  no 
se  abrirá. 


10  REH 

20  REH  «  PARACAIIAS  i 
30  REH 
40  S-0 

50  60SUB  ¿10 
¿0  H>H-1 

70  IF  H>0  THEN  LOCATE  1,1:PRINT  H$;:HH*37:H«37 

eO  PEN  1 

90  LOCATE  H,1 

100  PRINT  Ht| 

lio  DI-INKEVI 

120  IF  D»«""  THEN  170 

130  IF  PV>10  THEN  170 

140  IF  SP-1  THEN  OP-liOOTO  160 

150  SP-1 

160  IF  OP-0  THEN  PV»1:PH-H+1.5 
170  IF  SP-0  THEN  420 


Paracaídas 


180  IF  0P>0  THEN  PV>PV4l 

190  IF  0P»1  THEN  PV»PV+0.5;PH«PH-0.5 

200  IF  PV>24  OR  PH<1  THEN  440 

210  IF  OP-1  THEN  310 

220  LOCATE  HO,V 

230  PRINT  Nl| 

240  V-PV 
2S0  HO>PH 
260  PEN  2 
270  LOCATE  HO,V 
280  PRINT  C$; 

290  FOR  I-l  TO  I2O1NEXT  I 

300  SOTO  60 

310  PEN  2 

320  LOCATE  HO,V 

330  PRINT  N»; 

340  LOCATE  HO,VM 
350  PRINT  N«; 

360  V«PV 
370  HO-PH 
380  LOCATE  HO,V 
390  PRINT  PIj 
400  LOCATE  H0,V+1 
410  PRINT  Q«{ 

420  FOR  I-l  TO  I2O1NEXT  I 
430  60T0  60 

440  IF  INT  (H0^0.5)<>PA  THEN  500 

450  FOR  I«1  TO  500 

460  NEXT  I 

470  S>Stl 

480  80SUB  610 

490  60T0  60 

500  CLS 

510  PEN  3 

520  LOCATE  15,10 

530  PRINT  'SCORE  i')S) 

540  LOCATE  15,14 

550  PRINT  'üíRA'  .  'j 

560  DfMNKEYt 

570  IF  D4»“  THEN  560 

580  IF  DIO'N"  AND  D*<>'n'  THEN  RUN 

590  CLS 
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600  END 
610  INK  0,20 
620  INK  1,2 
630  INK  2,16 
640  INK  3,0 
650  BORDEN  22 
660  NODE  1 
670  CLS 

680  SYNBOL  240,20,20,26,28,62,73,93,93 
690  SYNBOL  241,0,0,0,28,62,127,127,65 
700  SYNBOL  242,93,93,73,62,28,28,20,20 
710  SYNBOL  243,63,1,15,31,31,63,63,31 
720  SYNBOL  244,248,0,128,224,255,255,240,192 
730  SYNBOL  245,0,0,12,12,252,248,0,0 
740  Nt>CHRt(32) 

750  N$>Nt+N>+N$ 

760  Ht>CHRI(243KCHRf(244)^CHR«(245)>N4 
770  Z«0 

780  C««CHRI(240) 

790  P»-CHR»(241) 

600  8l-CHRt(242) 

810  A4>CHRI(143) 

820  H>37 

630  PA>INT(RND(l)i31)«l 
840  LOCATE  PA,25 
850  PEN  3 
86P  PRINT  Al; 

870  SP«0 
880  0P«0 
890  PH>0 
900  PV«0 
910  CC-2 
920  V«1 
930  HO-1 
940  RETURN 
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OTROS  TÍTULOS  DE  EDITORIAL  NORAY,  S.A. 


ZX  SPECTRUM 

ZX  SPECTRUM  -  Qué  es,  para  qué  sirve  y  cómo  se  usa. 
ZX  SPECTRUM  -  Aplicaciones  prácticas  para  la  casa 
y  los  pequeños  negocios.!*) 

18  JUEGOS  DINÁMICOS  PARA  TU  ZX  SPECTRUM. 
PROFUNDIZANDO  EN  EL  ZX  SPECTRUM. 

COMO  CREAR  TUS  JUEGOS  ZX  SPECTRUM. 
PRONTUARIO  DEL  SPECTRUM. 

EL  SPECTRUM  Y  LOS  NIÑOS. 


COMMODORE  64 

COMMODORE  64  -  Qué  es,  para  qué  sirve  y  cómo  se  usa. 
COMMODORE  64  -  Aplicaciones  prácticas  para  la  casa 
y  los  pequeños  negocios.!*) 

18  JUEGOS  DINAMICOS  PARA  TU  COMMODORE  64. 
PRONTUARIO  DEL  COMMODORE  64. 

EL  COMMODORE  64  Y  LOS  NIÑOS. 


DRAGON 

DRAGON  -  Qué  es,  para  qué  sirve  y  cómo  se  usa. 

18  JUEGOS  DINAMICOS  PARA  TU  DRAGON. 


AMSTRAD 


EL  AMSTRAD  Y  LOS  NIÑOS. 
PRONTUARIO  DEL  AMSTRAD. 


MSX 

INTRODUCCION  AL  MSX 

18  JUEGOS  DINAMICOS  PARA  TU  DRAGON 


VARIOS 

DICCIONARIO  DE  MICROINFORMATICA 
MINI  DICCIONARIO  MICROINFORMATICO 
MICROORDENADORES  Y  CASSETTES 


(*)  Los  listados  de  estas  obras  están  disponibles  en  cassettes. 
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